Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue70/DBEX/Listing8.pas

Pascal/Delphi Source File | 2001-04-30 | 248 b | 9 lines

function dbxErrorCodeToStr(intdbxError: integer): string;
begin
  if (intdbxError > 0) and
  (intdbxError <=  DBX_MAXSTATICERRORS) then
    Result:=DBXError[intdbxError]
  else
    Result:='Unknown error ('+IntToStr(intdbxError)+')';
end;